let cline = ref 0
;;

let inc_line () = cline := !cline + 1
;;
